LevelScheme: A level scheme drawing and scientific figure preparation 

system for Mathematica 
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Abstract 

LevelScheme is a scientific figure preparation system for Mathematica. The main emphasis is upon the construction 
of level schemes, or level energy diagrams, as used in nuclear, atomic, molecular, and hadronic physics. LevelScheme 
also provides a general infrastructure for the preparation of publication-quality figures, including support for multi- 
panel and inset plotting, customizable tick mark generation, and various drawing and labeling tasks. Coupled with 
Mathematica's plotting functions and powerful programming language, LevelScheme provides a flexible system for 
the creation of figures combining diagrams, mathematical plots, and data plots. 



Program Summary 

Title of program: LevelScheme 
Catalogue identifier: ADVZ 



Program summary URL: http://cpc.cs.qub.ac.uk/summaries/ADVZ 

Program available from: CPC Program Library, Queen's University of Belfast, N. Ireland 

Operating systems: Any which supports Mathematica; tested under Microsoft Windows XP, Macintosh OS X, and 
Linux 

Programming language used: Mathematica 4 

Number of bytes in distributed program, including test code and documentation: 3 051807 
Distribution format: tar.gz 

Nature of problem: Creation of level scheme diagrams. Creation of publication-quality multipart figures incorporating 
diagrams and plots. 

Method of solution: A set of Mathematica packages has been developed, providing a library of level scheme drawing 
objects, tools for figure construction and labeling, and control code for producing the graphics. 

PACS: 01.30.Rx 

Keywords: level scheme; level energy diagram; drawing; plotting; figure preparation; Mathematica 



INTRODUCTION 



LevelScheme is a scientific figure preparation sys- 
tem for Mathematica 0, Q. The main focus is upon 
the construction of level schemes, or level energy dia- 
grams, as used in several areas of physics, including nu- 
clear, atomic, molecular, and hadronic physics. How- 
ever, convenient preparation of publication-quality fig- 
ures requires a variety of capabilities beyond those avail- 
able with Mathematica's built-in graphics display func- 
tions. The LevelScheme system thus also provides sup- 
port for multipanel and inset plotting, customizable tick 
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mark generation, and general drawing and labeling tasks. 
Coupled with Mathematica's powerful programming lan- 
guage, plotting functions, and mathematical typesetting 
capabilities, LevelScheme is a flexible system for the cre- 
ation of publication-quality figures. Figures can combine 
data plots, mathematical plots, and graphics generated 
by specialized packages {e.g., Ref. J3|) with diagrams con- 
structed using LevelScheme's drawing tools. 

LevelScheme automates many of the tedious aspects 
of preparing a level scheme, such as positioning transi- 
tion arrows between levels or placing text labels along- 
side the objects they label. The package allows extensive 
manual fine tuning of the drawing appearance, text for- 
matting, and object positioning. It also includes special- 
ized features for creating several common types of level 
schemes encountered in nuclear physics. Note that there 
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already exist programs for drawing certain specific types 
of level schemes, such as band structure diagrams or de- 
cay schemes (e.g., Refs. 0,01). 

After a discussion of the general features of the 
LevelScheme system (Sec. |2Jl, the major components of 
the software are considered in greater depth separately 
(Sees. |3HSJ). Examples of the package's graphical out- 
put are given in Sec. The more technical details 
of using the LevelScheme package are addressed in the 
documentation provided through the CPC Program Li- 
brary, which includes a tutorial discussion, a full refer- 
ence guide, and extensive examples of code for producing 
figures with LevelScheme. Updates and further infor- 
mation may be obtained through the LevelScheme home 
page [10. 

2. PRINCIPLES OF IMPLEMENTATION 

A few basic principles have guided the design of the 
LevelScheme system. One is that it should be possible 
for the user to make even major formatting changes to a 
level scheme relatively quickly. Objects are attached to 
each other (transition arrows are attached to levels, la- 
bels are attached to levels or transition arrows, etc.), so 
that if one object is moved the rest follow automatically. 
Another principle is for objects to have reasonable de- 
fault properties, so that an unsophisticated level scheme 
can be drawn with minimal attention to formatting fea- 
tures. But the user must then be given extensive flex- 
ibility in fine tuning formatting details, to accomodate 
whatever special cases might arise. This is accomplished 
by making the more sophisticated formatting features ac- 
cessible through various optional arguments ("options") 
for which the user can specify values. The user can spec- 
ify the values of options for individual objects, or the 
user can set new default values of options for the whole 
scheme to control the formatting of many objects at once. 
Finally, attention has been paid to providing a uniform 
user interface for all drawing objects, based upon a con- 
sistent notation for the specification of properties for the 
outline, fill, and text labels of objects. 

The code for the LevelScheme system consists of essen- 
tially three parts. There is a library of functions made 
available to the user for drawing the individual objects 
within a figure (Sec.|3J). There are tools included to fa- 
cilitate the general aspects of figure preparation and lay- 
out, such as construction of panels, axes, and tick marks 
(Sec. 0J. And underlying these is a general infrastruc- 
ture for managing the drawing process (option process- 
ing, coordinate system arithmetic, and a layered drawing 
system) and the final display of the figure (Sec. |SJ. 

3. DRAWING OBJECT LIBRARY 

The drawing object library is the portion of the Level- 
Scheme system which is most visible to the user. Some 



of the objects in this library are specialized elements of 
level scheme diagrams, while others are general purpose 
drawing shapes and labels. 

The basic drawing objects are as follows: 

1. An energy level object (Lev), consisting of a line 
and several attached labels. This line may have 
raised or lowered end segments ( "gull wings" ) to 
allow room for labels, as is customary in certain 
types of level schemes. There are also objects 
providing an extension line to the side of a level 
(ExtensionLine) or a connecting line between lev- 
els (Connector). These are shown in Fig. ^a). 

2. A transition arrow object (Trans), the endpoints of 
which can be automatically attached to two given 
levels or can be free-floating. This object is quite 
versatile. Labels can be attached to the transi- 
tion arrow at predefined but adjustable positions, 
cither aligned along the arrow or oriented as the 
user prefers. The arrow can be of several different 
styles ranging from a simple line to a filled polygo- 
nal arrow shape, with user control of all dimensions. 
Examples are shown in Fig. ^b) . 

3. Separate label objects. Labels may be free-standing 
at coordinates specified by the user (ManualLabel 
and ScaledLabel) or may be positioned in relation 
to an existing level (BandLabel and LevelLabel). 
See Fig.Htc). 

4. General drawing objects. These are essentially en- 
hanced versions of the basic Mathematica drawing 
primatives Q]. They differ from the basic prima- 
tives in that their drawing properties are controlled 
through the LevelScheme option system and in that 
they conveniently combine an outline, fill, and text 
labels in a single object. The general drawing ob- 
jects are an open curve or polyline (SchemeLine), a 
closed curve or polygon (SchemePolygon), a rect- 
angle (SchemeBox), and a filled circular or ellip- 
tical arc (SchemeCircle). An arrow similar to 
Trans, but meant for general drawing and annota- 
tion tasks, is also provided (SchemeArrow). These 
are illustrated in Fig. ^d). 

The user creates a figure by providing a list of such ob- 
jects to the drawing function Scheme (Sec. |5j). Each ob- 
ject's position and appearance is governed by arguments. 
The most essential positioning information is indicated 
through a small number of mandatory arguments. The 
other aspects of the object's positioning and appearance 
are specified as options, using the standard Mathemat- 
ica options value syntax |l|, with extensions described 
in Sec. [SI 

Each drawing object is built from up to three distinct 
parts: an outline, a filled area, and attached text la- 
bels. The labels may contain any Mathematica expres- 
sion and can take full advantage of Mathematica's ex- 
tensive typesetting capabilities. Several basic options 
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FIG. 1: Drawing objects and figure components provided by the LevelScheme system, (a) Levels, extension lines, and connectors, 
(b) Transition arrows, including arrows with kinks, arrows with multiple shafts, extended shapes with outline and fill, and 
split-shading conversion electron transition arrows, (c) Labels, either stand-alone or attached in various ways to existing levels, 
making full use of Mathematica's text-formatting capabilities, (d) Drawing shapes, including polylines, polygons, boxes, filled 
ellipses or arcs, and arrows, (e) Panels and axes, with extensive capability for labeling and tick customization. 



controling the appearance of the object's parts (e.g., 
Thickness, FillColor, and FontSize) are standardized 
across all object types, as are options for specifying the 
contents and positions of the text labels. Other options, 
such as those governing a level's gull wings or an arrow's 
shape, are specific to a given object type. If the user does 
not explicitly give a value for an option, its global default 
value is used. The user can thus control the style of all 
objects of a given type by changing the default setting 
of the relevant option, with SetOptions. For instance, 
the line thicknesses of the levels in a diagram can all be 
changed at once in this fashion, or the labels on these 
levels can be relocated from the top to the sides. The 
stylistic changes can be applied to the whole diagram or 
they can be made midway through, to affect only one 
portion of the diagram. 

Let us consider a brief concrete example. The 
function used to draw a level object has syntax 
Lev [name, x\, X2, El , where the arguments are, respec- 



tively, a name chosen by the user, to be used to identify 
the level later so that other objects such as transition 
arrows can be attached to it, the left and right endpoint 
x coordinates, and the energy or y coordinate. The code 
needed to generate the leftmost diagram in Fig. ^b) is 
then 

SetOptions [Lev, Thickness -> 2], 
Lev[levO, 0, 1, 0] , 
Lev[levl, 0.3, 1.3, 10] , 
Trans [levl, levO, LabR -> 100] 

More extensive examples may be found in Appendix ^ 
and the documentation provided through the CPC Pro- 
gram Library. 

4. FIGURE PREPARATION TOOLS 

Mathematica provides a powerful system for generat- 
ing graphics, but it does not by itself make available the 
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fine formatting control necessary for the preparation of 
publication-quality figures. The relevant figure layout 
and tick customization tools provided by LevelScheme 
are summarized in this section. 

Very often it is necessary to prepare figures with multi- 
ple parts. These range from simple side-by-side diagrams 
to more complicated possibilities, such as inset plots or 
rectangular arrays of plots with shared axes [Fig. He)]. 
LevelScheme includes a comprehensive framework for as- 
sembling multipart figures. 

The basic element of a multipart figure is a "panel" . 
This is a rectangular region designated as a plotting win- 
dow within the full plot. Panels can be arranged within 
the figure as the user pleases, and they can arbitrarily 
overlap with each other. Each panel can have its own 
ranges defined for the x and y axes, as specified by the 
user. All objects are drawn with respect to these coordi- 
nates, as discussed further in Sec. [31 If the user changes 
the position or size of the panel as a whole, all its contents 
thus move or are rescaled accordingly, without any need 
for changes to the arguments of the individual drawing 
objects. 

A panel can be drawn with any of several ancillary 
components: a frame, tick marks, tick labels, axis labels 
on the edges of the frame, a panel letter, and a solid 
background color. All these characteristics are controlled 
by options to the basic panel definition command Panel. 
A panel can also simply be used without these, as an 
invisible structure to aid in laying out part of the figure. 
As an alternative to axis ticks on the panel frame, the 
object SchemeAxis allows stand-alone axes (including a 
line with optional arrow head, tick marks, tick labels, 
and an axis label) to be placed wherever needed within 
a figure [Fig.QIe)]. 

The most common arrangement of figure panels is as 
a rectangular array [Fig. Hfe)]. The Multipanel tool 
greatly simplifies the construction of such an array. The 
user specifies a total region to be covered with the pan- 
els and the numbers of rows and columns of panels 
within this region, rather than calculating the position 
for each panel manually. The panels can be contiguous 
(shared edges) or separated by gaps, and different rows 
or columns of panels can have different heights or widths. 
The axes of the panels can be "linked" , as in many data 
plotting packages: The user specifies the y axis range for 
each row and x axis range for each column, and all panels 
within the row or column use this same range. The user 
can also specify the tick marks and axis labels by row 
and column. (Tick and axis labels are by default drawn 
only along the bottom and left exterior edges of the array 
as a whole.) Panels are automatically labeled with panel 
letters, formatted as chosen by the user. The user has 
the flexibility to override any or all of these automated 
settings on a panel by panel basis. 

LevelScheme also supports detailed customization of 
tick mark placement and formatting. A very general 
function is provided to construct sets of tick marks. 
These tick marks can be used on panels, on stand-alone 



axes, and on the frame of the LevelScheme figure as a 
whole. (The built-in Mathematica plot display function 
can generate a default set of tick marks, but it does not 
give the user any control over the tick intervals or labels.) 
Linear, logarithmic, and general nonlinear axes are sup- 
ported. For linear axes, the user specifies the start and 
end points of the coordinate range to be covered with 
tick marks and, optionally, the major tick interval and 
minor subdivisions. Options are used to control the ap- 
pearance of the tick marks and formatting of the labels, 
or to suppress the display of certain tick marks or labels. 

Beyond these basic tick mark formatting customiza- 
tions, great flexibility is obtained through integration 
with the Mathematica functional programming language. 
Arbitrary nonlinear axes are obtained by specifying var- 
ious transformation functions to be applied to the major 
and minor tick mark positions. Although the tick genera- 
tion function provides basic fixed-point decimal label for- 
matting, the user can instead specify an arbitrary func- 
tion to generate the tick label from the tick coordinate. 
The resulting label can be any Mathematica text or sym- 
bolic expression and can involve complicated typesetting: 
for instance, plots of trigonometric functions might have 
tick labels written as rational multiples of the symbol 
7r (see examples in the documentation provided through 
the CPC Program Library). For convenience, a prede- 
fined function is provided for constructing logarithmic 
ticks with labels in the format b n . 



5. INFRASTRUCTURE 

Let us now consider the technical framework underly- 
ing this LevelScheme figure construction process. This 
includes extensions to the Mathematica option passing 
scheme, definitions for handling a set of overlaid coor- 
dinate systems, a layered drawing system, and a mecha- 
nism for incorporating externally generated Mathematica 
graphics into the figure. 

Options play a major role in LevelScheme's approach 
to providing a simple but flexible drawing system and 
are used to control most aspects of the formatting of a 
level scheme. Two conceptual extensions to the standard 
Mathematica option passing scheme were needed to make 
this possible. Under the usual option system 1], default 
option values for a function are defined globally in the 
list Options [function] , and these default values can be 
overriden by specifying an argument option— + value when 
the function is invoked. 

The user makes stylistic changes within a level scheme, 
affecting the appearance of all drawing objects of a given 
type, by setting the default values of relevant options, 
as discussed in Sec. |5| However, if such a change were 
made to the usual global default value, it would have 
collateral effects on all other level schemes drawn in the 
same Mathematica session. To remedy this situation, 
LevelScheme implements dynamic scoping of default op- 
tion value settings. The global default values are saved 
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FIG. 2: Overlaid coordinate systems maintained by Level- 
Scheme: absolute (or physical), canvas, region, and user sys- 
tems. 

before processing of the scheme starts, and these origi- 
nal values are restored after processing finishes, so any 
changes made within a level scheme are confined to that 
scheme. 

It is also sometimes convenient to have changes to cer- 
tain basic stylistic options, such as the font size or line 
thickness, affect all objects in a drawing, not just those 
of a given type. To facilitate this, the concept of in- 
heritance, from object oriented programming, has been 
applied to the Mathematica option system. All Level- 
Scheme drawing objects are all defined to be child objects 
of a common parent object SchemeObject. The values 
of the basic outline, fill, and text style options (Sec. 03) 
for these objects are by default taken, or inherited, from 
values set for SchemeObject. (Further details are given 
in Ref. 0.) 

Several different, complementary coordinate systems 
are needed to describe points within a LevelScheme fig- 
ure (see Fig. The Mathematica graphics display func- 
tions only recognize a single coordinate system, which 
runs from user-specified coordinates (x\ ,y±) at the lower 
left corner of the figure to (2:2,2/2) at the upper right 
corner. We refer to these coordinates as the "canvas co- 
ordinates" . All graphics coordinates must ultimately be 
expressed in terms of these for display by Mathematica. 

However, many drawing tasks require the calculation 
of physical distances as they will appear on the output 
page. Angles are not preserved under an unequal rescal- 
ing of the horizontal and vertical axes. Thus, for in- 
stance, construction of the right angled corners in arrows 
[Fig. Iflb)] requires knowledge of physical horizontal and 



vertical distances rather than just x and y coordinate 
distances. Since the physical dimensions L x and L y of 
the plotting region are known (Fig.[2J), "absolute coordi- 
nates" measuring the physical position of a point within 
the figure can easily be related to the canvas coordinates. 

For constructing multipart figures (Sec. 0J, a smaller 
rectangular plotting region is designated within the full 
figure, with new ranges defined for the x and y axes 
within this region. The resulting "region coordinates" are 
fully determined if the coordinate values of the corners of 
the region, (2:3, 2/3) and (2:4,2/4), are specified in both the 
canvas and region coordinate systems. These region co- 
ordinates are the basic coordinates defined within a plot 
panel. However, it is also convenient for the user to be 
able to arbitrarily shift portions of a diagram collectively, 
without individually modifying the coordinates specified 
for all the objects involved. This is accomplished by in- 
troducing "user coordinates" , which have a user-defined 
offset and scale relative to the region coordinates. (For 
instance, the individual diagrams were arranged from left 
to right within each panel of Fig.nby defining a different 
horizontal user coordinate offset before drawing the ob- 
jects for each one.) The user specifies all coordinates for 
LevelScheme objects in the user coordinate system. Ini- 
tially, the canvas, region, and user coordinate systems for 
a figure are identical. Each time the user redefines the co- 
ordinates, e.g., by defining a panel or introducing a user 
coordinate offset, the affine transformation coefficients 
relating the various coordinate systems are recalculated 
and stored. 

A final important component of the drawing infras- 
tructure is the layered drawing system. Each drawing 
element is assigned to a numbered layer. Those assigned 
to lower-numbered layers (background) are rendered be- 
fore, and thus might be hidden by, objects assigned to 
higher- numbered layers (foreground). The layering sys- 
tem is essential for preventing text labels from being hid- 
den by other drawing elements in dense level schemes. By 
default, outlines and fills are assigned to layer 1, "white- 
out" boxes behind text labels are in layer 2, and the text 
itself is in layer 3. With this layering system, white-out 
boxes hide any lines or fills behind them, but they do not 
block neighboring text, making possible closely-spaced 
transition labels, such as are needed in decay schemes 
(see Sec. El for examples). 

Arbitrary Mathematica graphics, including the output 
of the Mathematica plotting routines, can be incorpo- 
rated into a LevelScheme figure. Mathematica represents 
graphical output as a Graphics object containing a list 
of "primatives" which are either drawing elements 
(polylines, polygons, points, etc.) or directives affect- 
ing the style in which the following drawing elements are 
rendered (color, thickness, dashing). For inclusion in a 
LevelScheme figure, such graphics must be "wrapped" in 
a LevelScheme RawGraphics object, which extracts the 
primatives from the Graphics object and carries out sev- 
eral manipulations on them. It first transforms all the co- 
ordinates contained in the graphics primatives from user 
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FIG. 4: Level scheme illustrating various arrow styles. Figure 
from Ref. jj). 
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FIG. 5: A decay scheme in the classic style, created using 
the LevelScheme decay scheme generation tools. Figure from 
Ref. 




40 50 



FIG. 7: A multipanel figure combining a level scheme diagram 
with function and data plots. Figure from Ref. [T^|. 
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FIG. 9: Nuclear charts created usin g L evelScheme drawing objects and the Mathematica chemical elements database (see 
text). Right panel adapted from Ref. |13|. 
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coordinates to canvas coordinates, thereby moving and 
scaling the graphics to appear according to the user's cur- 
rent choice of coordinate system. (The graphics may con- 
tain coordinates given in the special Offset and Scaled 
notations defined by Mathematica.) It then clips all poly- 
lines and polygons to the current plot region, using a 
standard algorithm Finally, it supplies default draw- 
ing style primatives and a layer number for the graphics, 
for use by the layered drawing system. 

The graphical content of a LevelScheme figure is as- 
sembled by the function Scheme. The user provides a 
list of LevelScheme drawing objects to Scheme. Inter- 
mixed with these objects may be commands, such as 
SetOptions or Panel, which affect the appearance of the 
following objects. Scheme also accepts options govern- 
ing the overall figure properties (plot range, dimensions, 
frame labels and ticks, etc.) much like the usual Mathe- 
matica plotting functions. The final output of Scheme is 
a Graphics object. 

We can now summarize the steps carried out by Scheme 
in creating a figure. The list of objects passed to scheme 
is initially "held" in unevaluated form, contrary to the 
usual Mathematica symbolic evaluation rules, to prevent 
premature evaluation of the coordinate arithmetic ex- 
pressions and any SetOptions calls it contains. Scheme 
first initializes the variables controlling the overlayed co- 
ordinate systems, based upon the plot range and image 
dimensions specified by the user. Scheme then evaluates 
the list of objects, dynamically scoping the drawing ob- 
ject default option values as described above. Evaluation 
of the objects relies upon three standardized functions for 
generating outlines, fills, and text labels. These functions 
in turn each return a structure containing three parts: a 
list of graphics style primatives based upon the Level- 
Scheme style option values (Sec. EJ>, a list of primatives 
for the drawing elements, and a layer number. Scheme 
sorts the resulting structures in order of ascending layer 
number, to insure that drawing elements in foreground 
layers are rendered after those in background layers, and 
then discards the layer information, extracting just the 
graphics primatives. Since many consecutive objects typ- 
ically have the same drawing style properties, Scheme 
achieves considerably more compact output by stripping 
redundant style primatives from the list. Scheme also 
constructs frame and axis directives for the whole scheme, 
which are combined with the graphics primative list to 
make a Mathematica Graphics object. 



6. GRAPHICAL OUTPUT EXAMPLES 

Several examples of figures generated using the Level- 
Scheme system are shown in this section. These fig- 
ures, mainly level scheme diagrams, have been chosen to 
demonstrate several of the capabilities discussed in the 
earlier sections and to illustrate the variety of drawing 
styles possible. 

Figs. and 0| are basic level schemes, as might be en- 



countered in presentations. Note the various arrow styles 
and arrow label positions. The complete code used to 
generate Fig. El is given in Appendix ^ 

Fig- El is in the classic style for a decay scheme, show- 
ing 7-ray transitions among nuclear levels populated fol- 
lowing a or [3 decay. LevelScheme provides tools which 
automate the positioning of the equally-spaced vertical 
transition arrows in such decay schemes. Note the gull 
wings on the levels and the white-out boxes behind the 
transition labels. The layered drawing system discussed 
in SecElprevents these boxes from obstructing neighbor- 
ing labels. 

Fig. El is an example of a multipanel figure involving 
only level schemes. Fig. [7| combines a level scheme dia- 
gram with function and data plots. 

Fig. El is a larger-scale scheme, involving bent arrows. 
Heavy use is made of annotation labels beside or below 
levels. In such a scheme, user coordinate offsets simplify 
adjustment of the horizontal spacing between the differ- 
ent families of levels. 

Fig. El provides an illustration of the use of Level- 
Scheme drawing tools for technical diagrams other than 
level schemes. Mathematica's programming language can 
be used to automate the construction of complex dia- 
grams containing large numbers of drawing objects. Nu- 
clear charts are simple to create using the SchemeBox 
drawing object, which provides the outline, fill, and labels 
for each cell. The entire array of cells can be constructed 
by using a single Mathematica Table construct to iter- 
ate over proton and neutron numbers. (Mathematica's 
chemical elements database provides the element symbols 
and information on which nuclides are stable.) The re- 
sulting chart can be overlaid with a Mathematica contour 
plot, as in Fig. El (left), where the LevelScheme layered 
drawing system has been used to ensure that labels ap- 
pear in front of the contour lines. Information read from 
external data files can be superposed as well, in the form 
of cell colors, cell text contents, or region boundary lines, 
as in Fig. El (right). 

7. CONCLUSION 

The LevelScheme system for Mathematica provides a 
flexible system for the construction of level energy dia- 
grams, automating many tedious aspects of the prepara- 
tion while allowing for extensive manual fine-tuning and 
customization. The general figure preparation tools and 
infrastructure developed for this purpose also have broad 
applicability to the preparation of publication-quality 
multipart figures with Mathematica, incorporating dia- 
grams, mathematical plots, and data plots. 
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APPENDIX A: FIGURE SOURCE CODE 

This appendix contains the Mathematica code used to generate Fig. [31 with the LevelScheme figure preparation 
system. 

Scheme [{ 

(* set default styles for level scheme objects *) 
SetOptions [SchemeObject , FontSize -> 20]; 

SetOptions [Lev, NudgeL -> 1, NudgeR -> 1, LabR -> Automatic], 

SetOptions [Trans , ArrowType -> ShapeArrow, HeadLength -> 9, HeadLip -> 10, Width -> 30, 

FontColor -> Blue, OrientationC -> Horizontal, BackgroundC -> Automatic], 
SetOptions [LevelLabel , Gap -> 10], 

(* draw cascade from 4+ level *) 

SetOrigin[0] , 

ManualLabel[{-.4, 850}, "(a)", Offset -> {-1, 1}], 

Lev[lev0, 0, 2, "0", LabL -> Label JP [0] ] , 
Lev[lev335, 0, 2, "335", LabL -> LabelJP[2]], 
LevelLabel [lev335, Right, "27 ps"] , 
Lev[lev661, 0, 2, "661", LabL -> Label JP [0] ] , 
Lev[lev747, 0, 2, "747", LabL -> LabelJP[4]], 
LevelLabel [lev747, Right, " 6 ps", FontColor -> Red], 

Trans [lev335, 1.3, levO, Automatic, FillColor -> LightGray, LabC -> "TIMING"] , 
Trans [lev747 , .7, lev335, Automatic, FillColor -> White, LabC -> "GATE"], 

(* draw cascade from 0+ level *) 

Set0rigin[3.5] , 

ManualLabel[{-.4, 850}, "(b)", Offset -> {-1, 1}], 

Lev[lev0, 0, 2, "0", LabL -> LabelJP[0]], 
Lev[lev335, 0, 2, "335", LabL -> LabelJP[2]], 
LevelLabel [lev335, Right, "27 ps"] , 
Lev[lev661, 0, 2, "661", LabL -> LabelJP[0]], 
LevelLabel [lev661 , Right, 

RowBox[{"r(" , hspace[-0.2] , LabelJiP[0, 2], ")"}], 

FontColor -> Red] , 
Lev[lev747, 0, 2, "747", LabL -> LabelJP[4]], 

Trans [lev335, 1.3, levO, Automatic, FillColor -> LightGray, LabC -> "TIMING"] , 
Trans [lev661 , .9, lev335, Automatic, FillColor -> White, LabC -> "GATE"], 

}. 

PlotRange -> {{-.8, 6.3}, {-100, 900}}, ImageSize -> 72*{8, 4} 

]; 
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